home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GEOS Mega ASM (19xx)(-).d64 / list-b-4.23 next >
Text File  |  2019-04-13  |  1KB  |  61 lines
  1. ; Listing B.4.23
  2. ; *******************************
  3. ; *                                   *
  4. ; * Demonstration der Routine           *
  5. ; *                                   *
  6. ; *        BitmapClip              *
  7. ; *                                   *
  8. ; *                                   *
  9. ; *******************************
  10.  
  11. if     .p
  12.      t     "TopSym"
  13.      t     "TopMac"
  14. endif
  15.      n     "BitmapClip"
  16.  
  17.      t     "TestMen}"
  18.  
  19. :DoShow
  20.      LoadW     r6,Filename     ; Zeiger auf zu suchendes
  21.                ; File (Photo Scrap)
  22.      LoadB     r0L,1     ; an Adresse in r7 laden
  23.      LoadW     r7,$4000     ; Ladeadresse
  24.      jsr     GetFile
  25.  
  26.      txa          ; Fehler im x-Register
  27.      beq     Read3     ; wenn Fehler --> EndShow
  28.      rts
  29.  
  30. :Read3     lda     $4000
  31.      sta     CardWidth
  32.      lda     $4001
  33.      sta     PixHLow
  34.      lda     $4002
  35.      sta     PixHHigh
  36.  
  37.  
  38.      LoadW     r0,$4003
  39.      LoadB     r1L,1
  40.      LoadB     r1H,20
  41.      MoveB     CardWidth,r2L
  42.      MoveB     PixHLow,r2H
  43.      LoadW     r11,0
  44.      LoadW     r12,0
  45.  
  46.      jsr     BitmapClip     ; Routine anspringen
  47.  
  48.      rts          ; Ende Unterprogramm
  49.  
  50.  
  51.  
  52. :Buffer     s     256
  53. :memTrSc     w     0
  54. :CardWidth     b     0
  55. :PixHLow     b     0
  56. :PixHHigh     b     0
  57. :memBuf     w     0
  58. :memNum     w     0
  59. :Filename     b     "Photo Scrap",0
  60.